home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nos107c
/
road2.plp
< prev
Wrap
Text File
|
1993-11-30
|
9KB
|
280 lines
/* ROAD2の電話番号一覧選択 */
%setTEL {
SNDMSG({erande_f.snd});
footnote({ROAD2 アクセス・ポイントの電話番号を直接入力処理中,,,♪});
%a @input({ROAD2の電話番号を入力してネ☆(入力後は「リターンキー↓」)},,
ROAD2);
case (a<>{}, {Yes},{ROAD2:=@getchar(a,1,80)},
{No},{setTEL});
};
%HOKKAIDO{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 札 幌 },{ROAD2:={011-898-3344}},
{ 滝 川 },{ROAD2:={0125-22-4126}},
{ 函 館 },{ROAD2:={0138-56-8214}},
{ 室 蘭 },{ROAD2:={0143-43-2271}},
{ 苫小牧 },{ROAD2:={0144-36-6081}},
{ 網 走 },{ROAD2:={0152-44-9728}},
{ 釧 路 },{ROAD2:={0154-22-1726}},
{ 帯 広 },{ROAD2:={0155-25-7511}},
{ 北 見 },{ROAD2:={0157-25-9103}},
{ 旭 川 },{ROAD2:={0166-24-6801}},
{直接入力},{setTEL}
);
};
%TOHOKU {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 弘 前 },{ROAD2:={0172-37-8200}},
{ 青 森 },{ROAD2:={0177-35-6721}},
{ 八 戸 },{ROAD2:={0178-47-3260}},
{ 秋 田 },{ROAD2:={0188-31-6640}},
{ 盛 岡 },{ROAD2:={0196-51-4221}},
{ 北 上 },{ROAD2:={0197-64-7636}},
{ 仙 台 },{ROAD2:={022-213-3322}},
{ 酒 田 },{ROAD2:={0234-26-7666}},
{ 山 形 },{ROAD2:={0236-25-6213}},
{ 東 根 },{ROAD2:={0237-43-7780}},
{ 米 沢 },{ROAD2:={0238-23-5748}},
{会津若松},{ROAD2:={0242-32-3190}},
{ 福 島 },{ROAD2:={0245-22-1609}},
{ いわき },{ROAD2:={0246-21-7622}},
{ 郡 山 },{ROAD2:={0249-21-2194}},
{直接入力},{setTEL}
);
};
%NKANTO {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 前 橋 },{ROAD2:={0272-54-2300}},
{ 高 崎 },{ROAD2:={0273-27-8955}},
{ 館 林 },{ROAD2:={0276-75-4101}},
{ 桐 生 },{ROAD2:={0277-44-0088}},
{ 那 須 },{ROAD2:={0287-29-3304}},
{ 足 利 },{ROAD2:={0284-73-3711}},
{ 小 山 },{ROAD2:={0285-24-9350}},
{ 宇都宮 },{ROAD2:={0286-38-9999}},
{ 水 戸 },{ROAD2:={0292-28-1393}},
{ 日 立 },{ROAD2:={0294-21-5820}},
{ 下 館 },{ROAD2:={0296-25-6401}},
{ 筑 波 },{ROAD2:={0298-55-0808}},
{ 所 沢 },{ROAD2:={0429-25-6401}},
{ 浦 和 },{ROAD2:={048-825-8920}},
{ 川 口 },{ROAD2:={048-226-0471}},
{ 熊 谷 },{ROAD2:={0485-22-9270}},
{ 越 谷 },{ROAD2:={0489-66-9950}},
{ 川 越 },{ROAD2:={0492-48-1160}},
{ 本 庄 },{ROAD2:={0495-22-7191}},
{直接入力},{setTEL}
);
};
%SKANTO {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 千 葉 },{ROAD2:={043-299-3300}},
{ 市 原 },{ROAD2:={0436-42-2291}},
{ 君 津 },{ROAD2:={0439-55-5030}},
{ 川 崎 },{ROAD2:={044-755-4466}},
{ 横 浜 },{ROAD2:={045-323-5511}},
{ 新横浜 },{ROAD2:={045-942-3351}},
{ 厚 木 },{ROAD2:={0462-50-3260}},
{ 平 塚 },{ROAD2:={0463-24-9140}},
{ 小田原 },{ROAD2:={0465-24-4130}},
{ 藤 沢 },{ROAD2:={0466-24-6641}},
{ 横須賀 },{ROAD2:={0468-24-5272}},
{ 柏 },{ROAD2:={0471-46-4090}},
{ 松 戸 },{ROAD2:={0473-66-1591}},
{ 船 橋 },{ROAD2:={0474-35-8900}},
{ 茂 原 },{ROAD2:={0475-22-1369}},
{ 成 田 },{ROAD2:={0476-23-5181}},
{ 佐 原 },{ROAD2:={0478-52-6250}},
{直接入力},{setTEL}
);
};
%TOKYO {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 東 京 },{ROAD2:={03-5703-0222}},
{ 東東京 },{ROAD2:={03-5703-9800}},
{ 南東京 },{ROAD2:={03-5703-9990}},
{ 北東京 },{ROAD2:={03-5710-5100}},
{ 稲 城 },{ROAD2:={0423-78-9911}},
{ 調 布 },{ROAD2:={0424-99-0200}},
{ 立 川 },{ROAD2:={0425-29-7717}},
{ 八王子 },{ROAD2:={0426-22-3141}},
{ 町 田 },{ROAD2:={0427-99-4911}},
{直接入力},{setTEL}
);
};
%HOKURIKU{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 新 潟 },{ROAD2:={025-244-7554}},
{ 上 越 },{ROAD2:={0255-26-3683}},
{ 巻 },{ROAD2:={0256-93-6270}},
{ 長 岡 },{ROAD2:={0258-33-8100}},
{ 長 野 },{ROAD2:={0262-26-4430}},
{ 松 本 },{ROAD2:={0263-35-7999}},
{ 諏 訪 },{ROAD2:={0266-52-5525}},
{ 佐 久 },{ROAD2:={0267-63-6391}},
{ 軽井沢 },{ROAD2:={0267-45-2640}},
{ 小 松 },{ROAD2:={0761-23-5501}},
{ 金 沢 },{ROAD2:={0762-60-7971}},
{ 富 山 },{ROAD2:={0764-55-3378}},
{ 高 岡 },{ROAD2:={0766-26-9554}},
{ 七 尾 },{ROAD2:={0767-54-0482}},
{ 福 井 },{ROAD2:={0776-24-9528}},
{直接入力},{setTEL}
);
};
%TYUBU {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 名古屋 },{ROAD2:={052-222-2911}},
{ 浜 松 },{ROAD2:={053-458-5596}},
{ 豊 橋 },{ROAD2:={0532-53-9511}},
{ 静 岡 },{ROAD2:={054-272-4011}},
{ 甲 府 },{ROAD2:={0552-26-8700}},
{ 下 田 },{ROAD2:={0558-23-2210}},
{ 沼 津 },{ROAD2:={0559-25-3121}},
{ 岡 崎 },{ROAD2:={0564-26-3731}},
{ 豊 田 },{ROAD2:={0565-26-7981}},
{ 刈 谷 },{ROAD2:={0566-25-1339}},
{ 春日井 },{ROAD2:={0568-51-6500}},
{ 半 田 },{ROAD2:={0569-26-2815}},
{ 多治見 },{ROAD2:={0572-25-6840}},
{ 高 山 },{ROAD2:={0577-32-5401}},
{ 岐 阜 },{ROAD2:={0582-53-7120}},
{ 大 垣 },{ROAD2:={0584-81-0896}},
{ 一 宮 },{ROAD2:={0586-46-2910}},
{ 津 },{ROAD2:={0592-29-1520}},
{ 四日市 },{ROAD2:={0593-54-9304}},
{ 伊 勢 },{ROAD2:={0596-27-1705}},
{直接入力},{setTEL}
);
};
%KINKI {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 大 阪 },{ROAD2:={06-941-7006}},
{ 新大阪 },{ROAD2:={06-944-4500}},
{ 枚 方 },{ROAD2:={0720-45-2704}},
{ 堺 },{ROAD2:={0722-27-9436}},
{ 泉佐野 },{ROAD2:={0724-69-4800}},
{ 茨 木 },{ROAD2:={0726-24-9130}},
{ 和歌山 },{ROAD2:={0734-74-8180}},
{ 新 宮 },{ROAD2:={0735-23-2286}},
{ 田 辺 },{ROAD2:={0739-22-4340}},
{ 奈 良 },{ROAD2:={0742-34-4191}},
{ 彦 根 },{ROAD2:={0749-22-4140}},
{ 京 都 },{ROAD2:={075-255-6061}},
{ 福知山 },{ROAD2:={0773-24-2622}},
{ 大 津 },{ROAD2:={0775-25-9750}},
{ 神 戸 },{ROAD2:={078-322-0235}},
{ 姫 路 },{ROAD2:={0792-81-1561}},
{ 加古川 },{ROAD2:={0794-35-8734}},
{ 西 宮 },{ROAD2:={0798-64-3661}},
{直接入力},{setTEL}
);
};
%CHUGOKU{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 広 島 },{ROAD2:={082-222-7110}},
{ 呉 },{ROAD2:={0823-25-2942}},
{ 下 関 },{ROAD2:={0832-34-6001}},
{ 徳 山 },{ROAD2:={0834-32-8313}},
{ 宇 部 },{ROAD2:={0836-22-5790}},
{ 山 口 },{ROAD2:={0839-23-1085}},
{ 福 山 },{ROAD2:={0849-26-2421}},
{ 松 江 },{ROAD2:={0852-31-9666}},
{ 鳥 取 },{ROAD2:={0857-29-4694}},
{ 米 子 },{ROAD2:={0859-35-4020}},
{ 岡 山 },{ROAD2:={086-221-2207}},
{ 倉 敷 },{ROAD2:={086-462-2770}},
{ 津 山 },{ROAD2:={0868-24-0533}},
{直接入力},{setTEL}
);
};
%SHIKOKU{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 高 松 },{ROAD2:={0878-21-0251}},
{ 徳 島 },{ROAD2:={0886-55-2890}},
{ 高 知 },{ROAD2:={0888-24-5454}},
{ 宇和島 },{ROAD2:={0895-45-3255}},
{ 新居浜 },{ROAD2:={0897-32-7225}},
{ 今 治 },{ROAD2:={0898-32-6667}},
{ 松 山 },{ROAD2:={0899-31-9300}},
{直接入力},{setTEL}
);
};
%KYUSYU {
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 福 岡 },{ROAD2:={092-452-1900}},
{ 北九州 },{ROAD2:={093-541-6116}},
{ 久留米 },{ROAD2:={0942-39-8670}},
{ 大牟田 },{ROAD2:={0944-56-6751}},
{ 佐 賀 },{ROAD2:={0952-24-2584}},
{ 佐世保 },{ROAD2:={0956-46-1006}},
{ 長 崎 },{ROAD2:={0958-22-6181}},
{ 熊 本 },{ROAD2:={096-359-6300}},
{ 大 分 },{ROAD2:={0975-33-5455}},
{ 延 岡 },{ROAD2:={0982-34-0370}},
{ 宮 崎 },{ROAD2:={0985-32-0301}},
{ 鹿児島 },{ROAD2:={0992-24-8835}},
{直接入力},{setTEL}
);
};
%OKINAWA{
SNDMSG({erande_f.snd});
select({ROAD2の電話番号を選択してネ☆(現在は『}|ROAD2|{』)},
,,
{ 那 覇 },{ROAD2:={098-866-7179}},
{直接入力},{setTEL}
);
};
%setNODE{
case(ROAD2,{},{ROAD2:={未設定}});
SNDMSG({erande_f.snd});
footnote({ROAD2アクセス・ポイント地域の設定処理中,,,♪});
select({ROAD2アクセス・ポイント地域を選択してネ☆)},
,,
{ 北海道 },{HOKKAIDO}, { 東 北 },{TOHOKU},
{ 北関東 },{NKANTO}, { 南関東 },{SKANTO},
{ 東 京 },{TOKYO}, { 北信越 },{HOKURIKU},
{ 中 部 },{TYUBU}, { 近 畿 },{KINKI},
{ 中 国 },{CHUGOKU}, { 四 国 },{SHIKOKU},
{ 九 州 },{KYUSYU}, { 沖 縄 },{OKINAWA},
{直接入力},{setTEL}
);
};
setNODE;